VERSION 5.00
Begin VB.Form frmHesoAnToan 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "He so an toan"
   ClientHeight    =   3105
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3525
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   9.75
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "HesoAnToan.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3105
   ScaleWidth      =   3525
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdOK 
      Cancel          =   -1  'True
      Caption         =   "&OK"
      Height          =   435
      Left            =   2220
      TabIndex        =   5
      Top             =   2580
      Width           =   1215
   End
   Begin VB.Frame Frame1 
      Caption         =   "He so an toan:"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   2475
      Index           =   1
      Left            =   60
      TabIndex        =   6
      Top             =   0
      Width           =   3375
      Begin VB.TextBox txtGama_Mb 
         Alignment       =   2  'Center
         Height          =   360
         Left            =   2400
         TabIndex        =   4
         Text            =   "txtGama_Mb"
         Top             =   1980
         Width           =   855
      End
      Begin VB.TextBox txtGama_s 
         Alignment       =   2  'Center
         Height          =   360
         Left            =   2400
         TabIndex        =   1
         Text            =   "txtGama_s"
         Top             =   720
         Width           =   855
      End
      Begin VB.TextBox txtGama_c 
         Alignment       =   2  'Center
         Height          =   360
         Left            =   2400
         TabIndex        =   2
         Text            =   "txtGama_c"
         Top             =   1140
         Width           =   855
      End
      Begin VB.TextBox txtGama_Mw 
         Alignment       =   2  'Center
         Height          =   360
         Left            =   2400
         TabIndex        =   3
         Text            =   "txtGama_Mw"
         Top             =   1560
         Width           =   855
      End
      Begin VB.TextBox txtGama_M0 
         Alignment       =   2  'Center
         Height          =   360
         Left            =   2400
         TabIndex        =   0
         Text            =   "txtGama_M0"
         Top             =   300
         Width           =   855
      End
      Begin VB.Label lblTf2 
         Caption         =   "Bu long:"
         Height          =   345
         Index           =   2
         Left            =   240
         TabIndex        =   11
         Top             =   2040
         Width           =   1395
      End
      Begin VB.Label lblTw 
         Caption         =   "Cot thep:"
         Height          =   285
         Index           =   2
         Left            =   240
         TabIndex        =   10
         Top             =   780
         Width           =   1395
      End
      Begin VB.Label lblBf1 
         Caption         =   "Be tong:"
         Height          =   285
         Index           =   2
         Left            =   240
         TabIndex        =   9
         Top             =   1200
         Width           =   1395
      End
      Begin VB.Label lblTf1 
         Caption         =   "Duong han:"
         Height          =   345
         Index           =   2
         Left            =   240
         TabIndex        =   8
         Top             =   1620
         Width           =   1395
      End
      Begin VB.Label lblTw 
         Caption         =   "Ket cau thep:"
         Height          =   285
         Index           =   4
         Left            =   240
         TabIndex        =   7
         Top             =   360
         Width           =   1395
      End
   End
End
Attribute VB_Name = "frmHesoAnToan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdOK_Click()
     Unload Me
End Sub

Private Sub txtE_c_Change()

End Sub

Private Sub Form_Load()
     txtGama_M0.Text = "1.10"
     txtGama_s.Text = "1.15"
     txtGama_c.Text = "1.15"
     txtGama_Mw.Text = "1.25"
     txtGama_Mb.Text = "1.25"
End Sub


Private Sub txtGama_c_GotFocus()
     SelectTextFromTextBox txtGama_c
End Sub


Private Sub txtGama_c_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtGama_c_LostFocus()
     CheckValidNumberInputed txtGama_c
End Sub

Private Sub txtGama_M0_GotFocus()
     SelectTextFromTextBox txtGama_M0
End Sub


Private Sub txtGama_M0_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtGama_M0_LostFocus()
     CheckValidNumberInputed txtGama_M0
End Sub

Private Sub txtGama_Mb_GotFocus()
     SelectTextFromTextBox txtGama_Mb
End Sub


Private Sub txtGama_Mb_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtGama_Mb_LostFocus()
     CheckValidNumberInputed txtGama_Mb
End Sub

Private Sub txtGama_Mw_GotFocus()
     SelectTextFromTextBox txtGama_Mw
End Sub


Private Sub txtGama_Mw_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtGama_Mw_LostFocus()
     CheckValidNumberInputed txtGama_Mw
End Sub

Private Sub txtGama_s_GotFocus()
     SelectTextFromTextBox txtGama_s
End Sub


Private Sub txtGama_s_KeyPress(KeyAscii As Integer)
     CheckValidNumberGT0WhileInput KeyAscii
End Sub


Private Sub txtGama_s_LostFocus()
     CheckValidNumberInputed txtGama_s
End Sub


